home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_12329_moveBlackCSTR < prev    next >
Text File  |  1994-09-21  |  518b  |  23 lines
  1. global LgST
  2. wait 20
  3. get (last char of short name of target)
  4. if mouse()="up" then
  5. hide the target
  6. IV "",it
  7. doblacks
  8. else
  9. if LgST then put "mb2" into B
  10. else put "mb1" into B
  11. put top of bg btn B into Tp
  12. put TP+height of target into TH
  13. put bottom of bg btn B into Bm
  14. put bottom of target-clickv() into offv
  15. repeat until mouse()="up"
  16. put mousev()+offv into MF
  17. put min(MF,Bm) into hl
  18. put min(MF,TH) into hh
  19. if hh<TH then set top of target to Tp
  20. else set bottom of target to hl
  21. end repeat
  22. IV (top of target&","&TH),it
  23. end if